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BARA AAAARRRAAARASAARASALALASLESASELELESALSLASE LEER SEE EES EEE EEE REESE SESE ESSE ESS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
L ufQULPRENT CORPORATION, ° MAYNARD. MASSACHUSETTS. 


za- 


*® * 
-* * 
ft ® 
*® ® 
*® ® 
:% TWARE I$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 8 
: ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
;* OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT WARE OR ANY OTHER * 
;* EREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
. ORANSFERREDY ~ 
** * 
** ® 
*® ® 
*® ® 
*® cod 
*® * 
** ® 
*® ® 
** * 
*® ® 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


pojolololololeololololelolelololoelolo) 


fm Te me ne nme nn ne ne) ee eee we ee ww ww lolol ole lolelolalolololelolelelelololololelolelolol ola = =) 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARA RRARAARAASSLALALAAAEASSEEE ESSER EES EEL EL ES ESSER SERRE EERE ESSE ESE E REE SD 


:" Facility: rms32 

Abstract: 

: this module performs i/o transfers for the 
: sequential file organization. 


3 ; Environment: 
star processor running starlet exec. 


: ; Author: L F Laverdure, creation date: 3-FEB-1977 
; Modi fied By: 


v03-012 7Es00e5 J E Johnson 06-Apr-1984 
In the event of an attempt to append to a magtape file back 
up over the tape mark and write the block. 


v03-011 $HZ0001 Stephen H. Zalewski 05-Dec-1983 
No longer attempt to allocate different event flags 
in RMSSETEFN. The new scheme is to always return EFN 29. 


v03-010 RASO187 7-Sep-1983 
Restore TSK0001 nm by *FPr 00x 

Force journal entries for the tile immediately 

before a buffer is written to disk. Fix a broken branch. 
Improve register save/restore performance. 


v03-009 RASO182 Ron Schaefer 29-Aug-1983 
Correct KPLO003 for non-terminal/non-disk devices; 
BDB$L_VBN and BDBSW_NUMB were not being filled in. 
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6 RMS.SRCIJRM1SEQXFR.MAR; 1 


v03-008 KPLO0003 Peter Lieberwirth 12-Aug-1983 
Re-work KPLO002 because it wasn't quite right. RAH from 
magtapes broke. Add some explanatory commentary now 
that 1 understand this a Little more. 


v03-007 KPLO0002 Peter Lieberwirth 12-Jul-1983 
Fix de endancy on order of Q10 completion. RMS required 
that Q10s finish in the same order as aoe | were started. 
UDAs and HSCs broke this assumption, resulting in 
intermittent ‘stale data'’ reads on RAH/WBE 10. 


V03-006 RASO142 Ron Schaefer 7-Apr-1983 
Correct spurious data returned on error path for 
terminal input with a bad prompt buffer. 


v03-005 DAS0002 David Solomon 24-Feb-1983 
Return new error RMS$_XNF if an XABTRM is required 
(e.g. ROP ETO bit set), but not found. 


v03-004 DAS0002 David Solomon 10-Feb-1983 
Add support for extended terminal 1/0 (XABTRM). 


v03-003 KBT0148 Keith B. Thompson 20-Aug-1982 
Reorganize psects 


v03-002 KBT0089 Keith B. Thompson 13-Jul-1982 
Clean up psects 


v03-001 KPLO001 P Lieberwirth 22-Mar-1982 
Move a word of the BDBS$L_IOSB as system error code 
on errors encountered in read-ahead/write-behind, 
not a longword, as before, which led to bad messages. 


v02-039 CDS0003 C D Saether 20-Aug-1981 
Remove references to BDBSM_LKDINWS flag. 


v02-038 CdS0002 C D Saether 77-May-1981. 
Clear DRT before qio on write to block device 
Like it used to before v02-037. 


v02-037 CDS0001 C D Saether 6-Feb-1981 
Always set bdb$v_iop for duration of i/o on 
buffer reads and writes so multi-streaming 
cache interlocks work correctly 


v02-036 KRMO001 K R Malik 19=NOV-1980 
Check for new status codes, SS$_LINKABORT and SS$_LINKDISCON 
and map to RMS$_EOF if found (léave in check for SS$_ABORT 
for the time being). 


V02-035 REFORMAT P S$ Knibbe 24-Jul-1980 
v034 ¢ds0078 C D Saether 26-MAR-1980 11:10 


zero bdb$w_numb on sys error, branch to errwrt on 
qio error for task to tas 
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v033 ¢ds0077 C D0 Saether 21-MAR-1980 15:20 


set bdb$w_numb to smaller of iosb count field and 
buffer size on errors. 


OOoooo 


v032 JAK0041 J_A Krycka 19=-MAR-1980 15:30 
continuation of v031. 

v031 JAK0041 J A Krycka 03-MAR-1980 11:00 
clean up of ntget and ntput. 

v030 PSK0013 P S Knibbe 18-F EB-1980 17:50 
— sure bdb$w_numb is always valid after a sequential 
read. 


Revision history: 


v029 PSK0011 P S Knibbe 23-JAN-1980 
when a maptaes reads eof, the eof bit lee should be set and 
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SOOGCCOCOCOCOOCOOCOCOOOOCOOOOCO OOOO OOOoOoO 


the nrp_vbn should be set equal to the ebk in order to force 
checkin the flag on subsequent operations. 

vO28  CDS0076 C D Saether 22-JAN-1980 15:20 
fix write behind bug causing wait for completion of i/o on 

on all buffers when unnecessary 

v027 C0S0061 CD Saether 6-DEC-1979 19:50 
set now for mailboxes if 0 timeout spec'd. use lesser of 
bdb$w_numb or bdb$w_size for reads from terminal. 

v026 CDS0030 C D Saether 11-SEP-1979 16:30 
take out terminal checks in put_unit_rec for size of record 
v025 CDS0026 C D Saether 18-AUG-1979 00:03 


write to unit record devices from user buffer 
don't write records horgee than devbufsiz to terminals checks 
have moved here from rm$put_unit_rec 


v024 Cps0011 C D Saether 26-JUN-1979 17:00 
take cntrl z checking for terminals out of rm$seqrd 
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1 -_ 
RFORM READ AHEA BrSEp=19 4 16:25:46 CRMS.SRCIRMISEQXFR.MAR; 1 
-SBTTL RMSSEQRAH = ROUTINE TO PERFORM READ AHEAD Q10 


+ 
RMSSEQRAH = Read ahead Q10 


this routine performs read ahead for the sequential file organization. 
; currently used for files-11 disk and magtape only. 


Calling sequence: 
bsbw rm$seqrah 
Input Parameters: 


rii impure area addr 

ri10 ifab addr 

r9 irab addr 

r8 rab addr 

r4 bdb address for read ahead 
r2 # of bytes to read 

ri starting vbn 


Implicit Inputs: 


ifb$wechnl i/o channel for qio 

outputs: 
rd status code 
ri,ap destroyed 

Implicit Outputs: 
bdb$w_numb # of bytes transferred 
bdb$l_vbn starting vbn for buffer 
bdb$ leared 


vival clear 
bdb$l_iosb,bdb$l_iosb+4 user as system iosb for qio 


status codes: 


WAI.AILAI AIO PIPINIPINPININININD 2 OO | MQDOOOCOOOCOOCOCWOWOOOOONO 4 x 


WOO NIA UE WN SO OD NA UNE WIN S OD NAME WN OS OD NAME WIN 0 OD NAME WO OONAOUE Ww 


Standard qio system service codes 
Side Effects: 


the ast for i/o completion will occur at rm$rahwbhast with r4 
as the ast parameter. 


note: 
The following is an historical note: 


R 
A 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


H 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
: 
3 
0 


the read ahead/write behind code assumes that qios will occur in the | 
same order as they are queued, otherwise the following sequence may fail: 
woh vbn n, read vbn m, read vbn n; a stale copy of vbn n may be read. 

du gate ordering assumpticn becomes invalid, additional code will have 

o be written. 
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° ; End of historical note. 
g : This problem is fixed in the Set lowing way: When an 10 is initiated, 
4; all BDBs ee examined to see if they have IOP for a buffer that contains 
5 3 any VBNs in the range of the I0 about to be initiated. If any such 
§ ; overlap occurs, all RAH/WBE 10 is quieted. This probably slows the 
57 ; code down some, but is the only way to assure data integrity, short 
28 mM of writing = much more complicated sequential cache manager. 
60 ° 
6 RMSSEQRAH:: 
OA AS 94 0 6 CLRB BOBSB_FLGS(R4) : clear all bdb flags 
0 64 SSB #e0es «@ 
0 65 BDB$B_FLGS(R4) 3; set io in progress 
1C AS «651 =0 = 0008 66 MOVL R1,BDB$L_VBN(R4) ; store vbn in bdb 
14 AG 35 0 Bots 67 MOVW R2,BDBSW_NUMB(R4) ; store size of xfer in bdb 
028 0 big 68 BSBW Ss % ; build gio parm block 
0288 0 Baz } BSBw SETP2_EFN_RAH 
O06 4 ASSUME QIOS_NARGS EQ 12 
00000000'°9F OC FB 0016 rg CALLS #12,a#SYS$QI0 3; do qio 
05 50 €8 001D 27% BLBS RO, 108 : branch if qio was ok 
0020 75 CSB #BOBSV_IOP,- 
0020 76 BDB$B_FLGS(R4) ; note no io in progress 
05 0025 77 10$ RSB 
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v04 RMSOUIE _SEQMBF = ROUTINE TO FLUSH OUT mi iaet 1 90:3 RMS .SRCJRM1SEQXFR.MAR;1 . (4) 
4 -SBTTL seal cad - ROUTINE TO FLUSH OUT ALL RAH/WBH 
1 + 
¢ RMSQUIET_SEQMBF = Flush out all RAH/WBH 
4 ; this routine scans down the bdb chain and wait for all 
5 ; pending io to complete. if a write behind error occurs it saves 
8 the status and reports it after all io is quiet. 
4 Calling sequence: 
? bsbw rm$quiet_seqmbf 
¢ Input Parameters: 
4 rij impure area addr 
5 r10 ifab addr 
r9 irab addr 
r8 rab addr (or fab) 
Implicit Inputs: 
ifb$Sw_echnl i/o channel for qio 
outputs: 


r0 status code 
ri thru r3,ap ore destroyed 


all bdb's in chain have been initialized 


status codes: 
woe 
Side Effects: 


Bete Se Se Se Ge Se Se Se Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Se Ge Ge Se Se Ge Se Se Ge Se Ge 
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ODPM FAQ ODPM OG OPAPP AAPA DAA APA AAP AAA AAA AAA AAA AAA AA AA AAA AAA IAA AS 
AANA AR IPDPPINININININIDS 4 9 9 9 | MOOOCOOCOCOCOCOCOCOCOCOOOOO OOOO DOWDWOWWMwwon~ a 
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COOOCOCOCOCSOOOOSOOOOOOOOOOOSOOSOOOOSOSOSOOOOSOOOOOO OOOO OOOOOOOOOOOOoOO 


RMSQUIET Ceh 
20 Ad 4 CLR IRBSL CURBDB(R9) ; there is no longer a current bdb 
7E = 554 D nova Be. tSP2 : save oregisters 
1 DD PUSH #1 Apote succe 
54 69 ooogso F C1 ADDL #1FBSL_BDOB_FLNK, IRBSL_ FAB. cuts »,R4; get SBdb List head addr 
5 4 00 MOVL R ; Save it 
ASSUME BDBSL FLINK EQ 0 
54 4 00 10$: MOVL (R4) ,R4 : get next bdb 
55 54~—C«=éitd 0 CMPL a : at en 
15 13 BEQL 30$ ; Bey if yes 
02. €1 4 BBC #BDBS$V_IOP,- 
08 OA A4 4 BDB$B_FLGS(R4) ,20$ ; branch if no io in progress 
1 19 4 BSBB RM$STALLRAHWBH : wait for io to complete 
0350 € 4 BLBS RO,20$ 3; branch if no wbhe errors 


| 
| 
| 
| 
Implicit Outputs: 
| 
| 
| 
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6— 50 0 MOVL RO, (SP) 3 remember error 
oA AL (94 20$: CLRB BDBS$B_FLGS(R4) : clear flags 
C AG D4 CLRL BOBSL_VBN(R4) 3 and vbn 
ce ea BRB 10$ 3; branch back for next bdb 
31 ~=BA 30$: POPR #*M<RO,R4,R5> 3; restore status and r4,r5 
05 RSB 


“pmSstalLrahwbh - STALL Read Ahead and Write behind 
this routine waits for io done for a bdb for which a rah or whh was done. 
Calling sequence: 
bsbw rm$stallrahwbh 


inputs: 

same as Se 

r4 = bdb address to stall for 
outputs: 

r0 = status either suc or whe 


rl thru r3,ap are destroyed only if really stalls 


note: the bdb flags bit ‘ast_dcl' is used to interlock rah/wbh 
i/o done processing with the ast side of the system. when the i/o 
is initialized ast_dcl is zeroed, when the ast routine for i/o | 
completion is executed, the bit is set, and if pp recey set the waiting 
stream is restarted (subject to imp$v_inhast), else the ast is simply 
dismissed. when testing for i/o done, this routine first sets 
bdb$l_wait to the address of the irab and then tests the bit, setting 
it. Tf the bit was clear, the routine must stall for i/o done, 
otherwise the buffer may be used immediately. 


WDOODOOOOOOOOOOODOODOOOOVOOVOOVOOOODOOOOOODOOOAA & 1D 


RMSSTALLRAHWBH: : 
MOVL 


SDOSOSGOCOSCOC COCO OCO COCO SOOCOCOOCSOOOOO OOOO OOOOOCOSOO OOOO OOOOOOOOOOOoOOO 
ee ee een Po oot ont oat oto 1 oo ph eal vah ah Ah Ab Ab Ah Ab Ah Ah Ab Ab Ab Ah Ah Ah Ab Ab ab abr ah ah ab ab ab ahah ah al al alvabvaleah al al ealeal al ealealval me od 
AWAIANAAANAANAANIAAI AAAI AANA AANA AANA 
OO O00 000009 C9 COD IN NID DE DS DEDEDE DEDEDE DE TTT BS BB EAA 
M0 OO NON EWR OOO NOA UNE WN 0 OD NA UE WIN O OONA UE WI 0 OONOUE Wt" OOOO 


COOCOCOOCSOOCOCOCOSOOCOSOOOOCOSOOOOOOC OOOO OOOOOOSOOOOOSOOOOOOOOOoOO 


24 04 59 00 R9,BOBSL_WAIT(R4) ; set ast param in case of wait 
6 £2 D BBSS § #BDB$V_AST_DCL,- ; 
03 OA A4 F BDBS$B_FLGSTR4) ,20$ ; branch if i/o done 
; indicates waiting otherwise 
FF9B' 30 BSBW RMSSTALL ; stall for io complete 
2 208: RMSSUC 3; assume success for wbh or rah 
ASSUME BDBS$V_VAL EQ 0 
00. «OES ' BBCC #BDBSV_VAL,- 
07 OA AG A BDB$B_FLGS(R4) 258 ; branch if rah 
1C AG 4 ) CLRL BDBSL_VBN(R4) : cause blk not to be reused 
01 48 AG 03 ? - hy BDBSL_10SB(R4) ,30$ ; branch if errors 
48 AG = 30 5 $38: MOVZWL BDBS$L_I0SB(R4),- 
OC A8 8 RABSL_STV(R8) 3; return system error code to user 
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vOu=600 


00000040 8F (C1 
5069 


~O 0 C9 0d 09 40 09 CO CD CD CD CD 0D CD CD CD CD CO CO CO COCO CODCOD CO COCDODOCOCDCOCVOCO NIN —1 
WOMD ODDODOAOOCCOCOCOCOCCOCOOCOCOOOCOOCOOCOCOOM", I 


ow 
mr 
oO 
w 


o 


Foe oP oF of of of of ot ot ot at ot a a Ne) 
POPPOPOPONofoNy 2 2 = BODO OOOO OOO 0000000 
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OR SEQUENTIAL FILE ORG 197360- 1388 90:3 :37 VAX/VMS Macro v04-00 Page 
- ROUTINE TO FLUSH OUT A 5=-SEP=-1984 16:25:46 (CRMS.SRCIRMISEQXFR.MAR;1 
— WBE ; and report write behind error 


+> 
+ 


routine to get the next bdb via the flnk of a bdb thru the List head 
Calling sequence: 


; bsbw  rm$seqflnkbdb 
: inputs: 
: r9 = irab address 
: r4 = bdb address 
: outputs: 
: r4 = new bdb address via flnk 
3 r0 = List head address for bdb chain 
tetany 4 i 
ADDL #I1FBSL_BDB_FLNK,- 


IRBSL_TFAB-LNK(R9),RO  ; get bdb List head addr 


ASSUME BDBSL_FLINK EQ 0 

MOVL (R4) ,R4 ; get next bdb 
CMPL R4,RO ; at List head 
BNEQ XI 3; branch if no 
Rone (R4) ,R4 ; yes go one more 


1 


va 
irb$l—ios, irb$l_ios4 system specified i/o status block 
(useful for detecting unit record 
eof or reporting errors) 
rab$l_stv set to terminator if device is terminal 
or system error code if sys error 


D 11 
an) Spore TRANSFER BLOCK FOR SEQUENTIAL FILE ORG ts at 90:3 157 ae Macro V04-00 Page 
v04-000 RMSSEQRD = ROUTINE TO PERFORM SEQUENTIAL 5-SEP=1984 16:25:46 CRMS.SRCIRMISEQXFR.MAR;1 
034 : 3 ~SBTTL RMSSEQRD = ROUTINE TO PERFORM SEQUENTIAL READS 
94 431 34+ 
9 : ¢ ; RMSSEQRD - Perform sequential reads 
$094 434 ; this routine performs read virtual block for the sequential 
0094 435 ; file organization. one of several flavors is performed 
0094 4 § ; depending upon whether the device for the read is a 
0094 437 ; terminal and whether a read-ahead (ie multi-buf fering) 
Boe 2 8 3 was done or is in progress. 
0094 440 ; Calling sequence: 
Babe 441 ; 
094 t¢§ : bsbw rm$seqrd 
0094 443; 
0094 444 ; Input Parameters: 
0094 445 ; 
0094 446; ri impure area addr 
0094 447 ; ri0 ifab addr 
0094 448 ; r9 irab addr 
0094 449; r8 rab addr 
0094 450; r3 option to avoid read if bit 0 set 
0094 451; (currently simply checks for i/o in progress) 
0094 236 $ r2 # of bytes to read 
0094 453; ri starting vbn 
0094 454 ; : 
0094 455 ; Implicit Inputs: 
0094 $28 : 
0094 457; irb$l_curbdb addr of old current bdb 
0094 458 ; irb$l_nxtbdb bdb addr for which Last rah was done 
0094 459; dev$v_trm terminal device flag P 
0094 460 ; if set, the various rop terminal option 
0094 461; bits are used ajong with irb$b_tmo 
0094 186 ; irb$_l_pbf and irb$b_psz if specified 
0094 463; ifb$w_chnl i/o Channel for qio 
0094 464; 
0094 465 ; outputs: 
0094 466 ; 
0094 467 ; irb$l_curbdb new current bdb = r4 = flnk of old curbdb or 
0094 468 ; if old curbdb = 0 then nxtbdb 
0094 469 ; r4 addr of new current bdb 
0094 470; r0 status code 
0094 471; ri thru r3,ap destroyed 
0094 4 § : 
0094 475 ; Implicit Outputs: 
0094 474; 
0094 475; bdb$w_numb # of bytes transferred 
0094 476; bdb$l_vbn starting vbn for buffer 
0094 : f ; bdb$v_val set unless an error occurred 
479 ; 
480 ; 
ob 
83 
484 ; 
485 ; 


COO O0 OO SI NS SN NSS 


; status codes: 


~~ 
wo 
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= TRANSFER BLOCK FOR SEQUENTIAL Fit ORG 197 3b 1382 0:36:77 Aas Macro V04-00 Page 11. 
v04- RMSSEQRD = ROUTINE TO PERFORM SEQUENTIAL 5-SEP-1984 16:25:46 CRMS.SRCIRMISEQXFR.MAR; 1 (5) 
94 486; 
a : 5 3 standard rms, in particular, suc, eof, tmo, whe, and sys. 
094 4 5 ; Side Effects: 
094 490 ; | 
4 491 ; a have switched to running at ast level 
94 138 3 bdb$v_iop set for duration of i/o 
094 493; 
094 494 ;-- 
0094 495 | 
0094 $36 RMSSEQRD: : ; perform sequential reads 
BoA 13h STSTPT SEQRD 
009A 499 ; Get new Current BDB. New current BDB is the forward Link of the old 
009A 289 3; current BOB unless there was no old current BDB (CURBDB=0). In that 
BOA 203 3 case, the new current BDB is taken from NXTBDB. 
QO9A 303 ; RMSNXTBLK1 fires off read-aheads when releasing a buffer. Each available 
009A 504 ; buffer is used in thes routine to fire off a RAH. That routine and this 
009A 505 ; routine share assumptions about the use of CURBDB and NXTBDB. RMSNXTBLK1 
009A 506 ; sets up the RAH for the BDB perntes to by the forward Link of NXTBDB 
009A 507; (after setting up NXTBDB=CURBDB, of course...) and this routine expects 
Q09A 308 ; to find it in the BDB pointed to be the forward Link of CURBDB. | 
009A 510; (The reason for this Last bit of baroqueness is that the readahead code 
009A 511 ; in RMINXTBLK continues piey ine with NXTBDB, firing off as oom RAHsS as 
OO9A 216 ; possible. When its done, NXTBDB is no longer the same as CURBDB, it | 
009A 513 ; may point to some BDB farther down the chain. 
OO9A 514; 
OO9A 515 
54 20 A9 DO OO9A 516 MOVL IRB$L_CURBDB(R9) ,R4 ; get current BDB 3 
06 12 OO9E 517 BNEQ ; if there is one, get its forward Link 
54 3C A9 DO QOAO 518 MOVL IRBSL_NXTBDB(R9) ,R4 3 no current BDB, use NXTBDB 
02 11 OOAS 519 BRB 3 and continue 
DS 10 OOA 520 5$: BSBB RMS$SEQFLNKBDB ; get forward Link of CURBDB ' 
20 A9 = 54~—SOi«=iD ny, 328 6$: MOVL R4, IRB$L_CURBDB(R9) ; update CURBDB with new value 
OOAC 525; 
OOAC 524; If this BDB is not involved in a read-ahead operation, we're on our 
QOAC 525 ; own. If its involved in a read-ahead operation for the buffer we want, we 
QOAC 526 ; must wait for it. Note - we may not need to actually wait, if AST_DCL is set, 
OOAC 527 ; clearing IOP will put things just right, and RMSSTALLRAHWBH will come 
QOOAC 528 : right back. If the BDB involved in an RAH for some other IC, 
Boat 2 4 : quiet all 10 and go for it. 
e | 
QOAC 2 1; IOP is set on all RAH BDBs, even if the actual 10 has completes. 
OOAC ¢ ; AST_DCL (AST has been declared) is set if the the actual Q10 
DOAC 334 3 operation has completed. RMSSTALLRAHWBH understands this. I didn't. 
2F OA AG) «O02-SséSS bat 535 BBCC #BOBSV_IOP,BDBSB_FLGS(R4),40$; branch if not a rah bdb 
OE 68 008) 3 $ PUSHR #*M<R1,R2,R3> ; 
AS 1 083 8 BSBB RMSSTALLRAHWBH ; wait for io done, note that IO may 
3 BA 0085 POPR #*M<R1,R2,R5> : be done even though ICP was set. 
D9 E9 ed re BLBC RO,XIT ; branch if whe error 
2353 + €8 OBA 42 BLBS R3,40$ ; branch if write, claim bdb 
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RMISEQKFR TRANS BLOCK FOR SEQUENTIAL FILE ORG 16-SEP-1984 00:56:37 VAX/VMS Macro V04-00 Page 
v04-000 RMSSE = ROUTINE TO PERFORM SEQUENTIAL 7$eE 1 384 99:3 746 CRMS.SRCIRMISEQXFR.MAR; 1 . 

1C AG 1 Oj CMPL R BDBSL_VBN(R4) ; is this the desired vbn 

. BNEQ 4 : branch no 
OC AD = 4B COAG D mMOVa BOBSL_IOSB(R4), IRBSL_IOS(R9); put io status in irab 
50 48 AG C MOVZWL BDBSL_IOSB(R4),RO ; get completion code 
0C7 1 BRw QIODONE 3 and go join common code 


3 Ran into a RAH IO for some other buffer. Quiet all this I0 and then 
; proceed with our 10. 


05 8 35$:  PUSHR #*M<R1,R2,R3> 
FF BSBW  RMSQUIET SEQMBF : quiet activity 
OE BA POPR #*M<R1,R2,R3> 
20 a9 -554~—S«=O MOVL  R4,1RB$L_CURBDB(R9) ; save BDB address for Later 
03 5 8 BLBS RO,40$ 3 continue on success 
FFB 1 BRwW xIf 3; pass on error 


; Claim free bdb. 


PACS SCOCCOW DW S OWNLENVOOCOCOCOCODS FO SNH NH HMO ONO 
109 CO INNS NS SN NR PAA AAD AAA IIIT & EE 


52 B 40$: TSTL R2 ; any transfer? 
ig 1 E BEQL ayceree 3 get out if none 
OF 5 E8 E BLBS R3,SUCCESS ; all done if no read flagged 
02 £1 OOE BBC #dEVSV_TRM,- 
6A E IFBSL_PRIM_DEV(R10),- 
17 E CHECK_I0 ; branch if not terminal 
1¢ AS = 51~—Ss«éO E MOVL R1,BDB$L_VBN(R4) 3 save vbn in bdb 
14 AG 52 B° E MOVW R2,BDB$W_NUMB(R4) 3 and # bytes used 
013D 1 : BRwW TRMREAD 
F ; 
: 3: successful return for no read required 
F 6 
F SUCCESS: 
1C A4 51 D0 F MOVL R1,BDB$L_VBN(R4) : save vbn in bdb 
14 AQ 52 B80 a4 ‘ R2,BDB$W_NUMB(R4) : and # bytes used 
05 RSB 
CHECK_I0: 3 


We're going to do an 10. We must make sure our 10 does not overlap any 
outstanding 10. If it does, wait, because otherwise we may get into trouble 
with Q10 order dependancy and UDA/HSC disks. 


Look through all the BDBs. If any have an 10 in progress (10P) for any VBN 
n re range of our target request, wait for the RAH/WBH to quiet and then 
; continue. 


DOO NA UE WR OS ODNAU EWN 0 OD NAME WW 0 OD NAME WI OOO NAUE WW 


Ooocoocoooeo™m™ 


By doing so, we are no longer dependant on the ordering of Q10s by ACPs or 
devices. 


POPOPOPOPOPONOPOROMOPOPONUPUN Mm 


PUPP PPP PPG DUPUDPUPUSIVDVSPUSVUSVSVULUSVSIULVLU SUSU US VLU VSS VSS ISVS VIVO USVI VISITS IVI on 


WOO O0O0O0O0O0O0OW090000 00000000 


OONOUSWwh— 


VOOOOOoOooO 


53 6A =1C «CEI 


BBC #DEVSV_RND, IFBSL_PRIM_DEV(R10),100$ ; only check on disks 
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on) spare TRANSFER BLOCK FOR SEQUENTIAL FILE ORG 197 3E- 138e 90:3 :37 VAX/VMS Macro V04-00 Page 
v04- RMSSEQRD = ROUTINE TO PERFORM SEQUENTIAL 5=SEP-1984 16:25:46 (CRMS.SRCIRMISEQXFR.MAR; 1 

1 mMOva R5,-(SP) ; save work registers used in 

1 ; calculation of VBN range of request 

! ; or IOP 

1 Ri has the starting VBN of the garget request, calculate the ending VBN by 

1 turning then NUMB of bytes in R2 i 


nto a number of blocks and adding that go 
the starting VBN. The ending VBN of the target request will be kept in R5. 


ASHL = #=9,R2,R5 
ADDL2 = R1,R5 


ADDL3 #IFBSL_BDB_FLNK 


512 = 2°9 = # of bytes in one block 
last VBN in target range request 


F 
Q 
na @ 
55 52  F7 ef 7 
55 o-§ 
00000040 8F C1 ; also, get BDB List head in RO 
50 69 


C 
0 
6 
; 8 
— : 
9 604 
9 605 
109 6 § 
109 +6 
109 608 
109 609 
196 610 
11 611 
111 o1¢ i - : 
0117 —s 61 IRBSL_TFAB-LNK(R9),RO ;: (save for end test) 
54 460 00 ai? et MOVL (RO) ,R4 : get first BDB address 
bi1¢ $18 :; See if 10 is in progress on buffer described by this BDB. If so, see if 
011C 17 ; it conflicts with our request. If not, save the BDB address and keep 
011C 618 ; looking for conflicting I0. 
OIE 620 
2D OA AS) «=602~—~C«*E:“Cé‘«dkd CSC 21 «108: BBC #BDB$V_IOP,BDB$B_FLGS(R4),20$ ; branch if no_I0 in progress 
28 OA AG) «(06 «CEO 0186 e ¢ BBS #BDBSV~AST_DCL,BDBSB_FLGS(R4) ,20$ ; or if AST side says done 
126 6624 ; 
0126 625 ; If there is IOP, see if any VBN in the range of the 10 for this BDB/BUFFER 
0126 626; is in the range of our cores request. First, describe the range of the I0 
0126 627; for this buffer as a low-VBN/high-VBN pair as was down above for the target 
0136 ? 8 3 request. 
3 56 14 AG 3 0126 $89 MOVZWL BDBSW_NUMB(R4) ,R6 ; ges size of buffer in bytes 
560 56—StC*F7’s« BW 8 012A 631 ASHL #-9,,RB,R6 ; 512 = 2°9 = # bytes in one block 
56 1€C A& C0 3 F 636 ADDL2 BDBS$L_VBN‘R4) ,R6 ; 76 now has high VBN of IOP 
01 : 634 
01 635 ; Do comparison: 
01 636 ; ; 
oi aH § If (low VBN in target request > high VBN for IOP) 
; or 
013 639 ; (high VBN in target request < low VBN for IOP) 
01 640 ; en 
4 eh ; no_conflict. 
56 51 O01 4 28 CMPL R1,R6 : is base of target > high end of 10? 
16 14 0136 644 BGTR 30 : if GTR yes, no possible conflict 
10 AS «65510138 = 645 CMPL R5 ,BDBSL_VBN(R4) : is top of target < low end of 10? 
10 19 i C 646 BLSS —-_- 308 : if LSS yes, no possible conflict 
13—E 648 
a ; $6? ; Conflict, clean up and quiet 10. 
07 88 136 6651 * PUSHR #*M<RO,R1,R2> ; save bdb List head address, etc 
fF16 0 149 $36 BSBW RMSSTALLRAHWBH ; wait for this 10 to complete 
96 50 3: 14 65 BLBS RO,15$ 3 proceed on success 
SE 14 § 148 654 ADDL2 #20,SP 3; clean stack 
FF47 1 Bee O22 BRwW XIT 3 pass on WBE errors 
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on Shon TRANSFER BLOCK FOR SEQUENTIAL FILE ORG 16-SEP-1984 90:3 :37 VAX/VMS Macro V04-00 Page 
v04- RMSSEQRD = ROUTINE TO PERFORM SEQUENTIAL -SEP-1984 16:25:46 RMS.SRCIRM1SEQXFR.MAR; 1 
BA 36 637 15$: POPR #*M<RO,R1,R2> 3; restore bdb list head address 
ie 635 ; We just solved any problems we had with that 10, now keep looking. 
14—E 661 * 
14E 066 208: 
14E 6 
Vee +e : Get next BDB address for IOP test. 
16E 666 . ASSUME BDBSL_FLINK EQ 0 
he) a8 008 30$: MOVL (R4) RS 3 get next BDB address 
D1 015 6 CMPL ~=—sRG,, RO : back at head of List? (ie, done?) 
12 0154 670 BNEG =: 108 : if NEQ, no, another buffer to Look at 
b186 72 
0156 ers ; ALL BDBs in the List have been scanned. Any I0 in the way has been completed. 
0136 675° 
7D 0156 676 mMOVa (SP)+,R5 3; restore work registers 
8) $138 677 100$: MOVL {fest “CURBDBRO) R4 ; use saved 
b0 15D 678 MOVL R1,BD5$L_VBN( : aout vbn ~ — 
BO 0161 679 MOVW R2, *BDBSU- Mestre) ; and # byte sed 
0165 680 : Fall into *RMSROBUF WT 
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RMISEQKFR TRANSFER BLOCK FOR SEQUENTIAL Fit ORG 16-SEP-1984 00:56:37 \VAX/VMS Macro v04-00 Page 15 R) 
yo4-000 RMSSEQRD = ROUTINE TO PERFORM SEQUENTIAL ety 7 baits LRMS SRCJRM1 SEQXFR.MAR: 1 ’ (6) | $s 
16 6 § RMSRDBUF WT: : $ 
a | if 
16 685 ; perform remote file access ysing network specific code. however, $ 
1 ? § ; perform task-to-task communication using standard rms code. : 
165 688° 5 
3A 6A =3E EO 198 eh €BS #IFBSV_DAP,(R10),NTGET ; branch if remote access via dap | . 
169 +691; B 
192 $36 ; issue read qio (not for terminal) and wait for completion . 
169 694 ; start building argument List on stack B 
169 695 ; B 
169 69 8 
0159 3 169 69 BSBW seThs.P3 ; build p6 thru p3 on stack B 
017C 0 Q16C 698 BSBW SETP2 EFN : build p2 thru efn on stack B 
14 «€1 89 699 B #OEVST_MBX,- B 
A 171 700 IFBSL_PRIM.DEV(R10) ,- a 
3 8128 701 DOQI0 ; branch if not mailbox B 
E1 Q17 70 BBC #RABSV_TMO+ROP,- B 
OA 68 0175 =70 (R8) ,D6Q10 ; or if timeout not wanted & 
1F AB 95 «(0177 = 704 TSTB —- RABS$B_TMO(RB) : 0 timeout spec'd B 
05 12 O17A 705 BNEQ DOQIO 3: neq don't want now modifier 8 
017C 706 SSB #10$V_NOW,- B 
017C 707 Q10$_FUNC-4(SP) 3 set qio sub func to do now C 
0181 708 DOQIO: C 
Ht 4 ASSUME QIOS_NARGS EQ 12 . 
OA AS «60060=—C 88 «SO0181S 711 BISB2 #BDBSM_IOP,BDBSB_FLGS(R4) ; note i/o in progress D 
00000000'9F OC FB 0185 a: CALLS #12,a#SYS$Q10 ; do the qio D 
28 50 £9 018¢ 71 BLBC RO, ERRSYS : branch on error D 
FE6GE’ 30 OQO18F 714 BSBW RMSSTALL > await completion D 
OA AG 60046—COBA b192 715 BICB2 #BDB$M_IOP,BDBSB_FLGS(R4) ; note i/o complete D 
196 716 QIODONE: E 
OE Ad «=6BO (0196) = 717 MOVW IRB$W_I0S2(R9) ,- E 
14 AG 0199 718 BOBSW_NUMB(R4) ; store real byte count E 
2A 50 €9 0198 719 BLBC RO,ERR_READ ; branch on i/o error E 
01 88 O19F 720 SETVAL: BISB2 #BDBSM"-VAL,- é E 
OA A4 Q1A0 = 721 BDBS$B_FLGS(R4) ; set buffer valid E 
05 O1A 7 ¢ RET: RSB E 
OIA 7 E 
O1A 724 34+ F 
BIA 725 ; . I 
1A 726 ; perform network get/find function via the remote fal I 
OIA 4 7 ; note that network find does not return a record ' 
1A 7 § i-- I 
OIA 730 I 
OIA 731 NIGET: I 
08 69 29 #«2€1 OIA 7 § BBC #IRBSV_FIND,(R9) .10$ 3; branch if get operation I 
00000000"EF 16 OIA 7 JSB NTSF IND 3 perform network find I 
6 11 1AD 734 BRB 3 I 
00000090" 16 QIAF 735 10$: JSB NTSGET ; per tore network get I 
EA 50 €9 0185 7 § 20$: BLBC RO,RET 3; branch on failure I 
6 11 0188 7 Bab SET VAL > branch on success | 


LL 
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yo4-000 RMSSEQRD = ROUTINE TO PERFORM SEQUENTIAL ety 7 90:38:25 FRMS. SRCIJRM1 SEQXFRMARS 1 . (8) | 
BA 73 | 
1Ba Pah io = give default f ‘sys’ | 
3 error on qio - give default error of ‘sys 
IBA 74¢ rat ty : | 
1BA 74 
1BA 744 ERRSYS: 
OA AG 86046) «6BA OC(OIBA 745 BICB2 #BOBSM_IOP,BDBSB_FLGS(R4) ; make sure clear on error 
14 AG BG 195 reg CLRW BOBSW_RUMB(R4) ; zero on error so no data moved 
1C 74 RMSERR SYS,RT 3; set default error code 
is 106 748 BRB CHKEOF : go see if error is eof 
1¢ 749 
1C 750 ; 
1C¢ 751 ; error on read - check for eof 
1C U6 3 
1¢ 75 
1€8 754 ERR_READ: 
1¢8 755 RMSERR RER,R1 ; set default error code 
OE Ad «Bl O01CD 136 CMPW = sIRB$W_10S2(R9),- 
16 AG 8108 7 BOBSW_SIZE(R4) ; check ‘byte count’ against 
0S 1B 01D 758 BLEQU§ CHKEOF ; size of buffer. dataoverrun 
0104 759 ; err from magtape has size of 
0104 760 3; of block here instead of bytes 
0104 761 3; actually transferred. 
16 AS = BO 0104 peg MOVW BOBSW SIZE(R4),-=- 
14 AG 0107 76 BDB$@_NUMB(R4S : use buff size instead 
0870 8F 50 681 O1D9 764 CHKEOF: CMPW RO, #SSS_ENDOFFILE ; is it eof? 
@8 13 O1DE 765 BEQL «EOF > branch if yes 
OE 6A F €0 Q1E0 766 BBS #IFBSV_NSP,(R10),10$ : branch if task-to-task operation 
O22C 8F 50 B81 O1E4 767 CMPW RO,#SS$_TIMEOUT 3 perhaps it's time out? 
1A 12 «O1F9 «768 BNE@ = ERRQIO : branch if not 
Q1EB 769 RMSERR TMO 3 yes - change error code 
31 11 biES 770 BRB TSTSIZ 
2064 8F 50 8B! ite 771 108: CMPW RO, #SS$_LINKABORT ; Did partner issue disconnect abort? 
of 13° OIF ure BEQL f 3; Branch yes 
20EC 8F 0 2861 gir? 77 CMPW RO,#SS$_LINKDISCON 3; Did partner issue sync disconnect? 
08 13 OE 774 BEQL f ; Branch yee 
x 2» & 6 775 CMPW RO,#SS$_ABORT ; Was logical Link destroyed (old code)? 
03 13 020 776 BEQL EOF ; Branch if yes 
0205 777 
8 05 ore 3 
05 779 ; some unexpected qio error 
0508 pat 
FOF8* 31 F 782 ERRQIO: BRW RMSMAPERR ; see if error mappable to rms code S| 
05 =€1 8 785 EOF: BBC #DEV$V_SQD,- 
12 6A OA 784 IFBSL_PRIM_DEV(R10),10$ ; if magtape S$ 
18 €0 0c 785 BBS DEVSV_FOR,- S 
OE 6A OF 7 § 1FBSL_PRIM_DEV(R10),10$ ; and not foreign S 
1 7 SSB #IRBSU_EOF > (RO) ; set eof flag $ 
74 AA DO 0214 7 2 MOVL IFBSL_EBK(R10),- 5 
40 Ad i. TRBSL-NRP_VBN(R9) ; set vbn = ebk to force $s 
19 790 ; op's te look at flag $ 
5C AA B60 19 791 MOVW IFBSW_FFB(R10),- T 
44 a9 1C 198 IRBSW"NRP_OFF (R9) T 
3 a 108: RMSERR EOF ; change error code T 
OE AQ s«BS § 794 TSTSIZ: TSTW IRBSW jos2(R9) ; zero data length? T 
01 12 6 795 BNEQ SETVAC ; treat as valid if so T 


aca ateaw Sieve vYaveavwt Reker Zzrerire uN Fe = 


v04-00 
EQXFR.MAR; 1 


SETVAL 
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vou=000 - ROUTINE TO PERFORM SEQUENTIAL 3 SEp-19b¢ 13:38:46 x 


v04- Page 1 
RMSSE RMS .SRCJRM1SEQXFR.MAR; 1 (10) 


; either no next bdb or iop was set 
; neither should ever happen (gulp!) 


; note: on read ahead or write behind, iop can be set 
: in which case must wait for the buffer to be freed. 


—— $$ QDOOOCOOoO e 
M—OOONAOUE Wr 
Tr Tere rere Tere! 


AOMOOAOOOOONY 


ERRBUG: RMSTBUG FTL$_NONXTBDB 


: check for read prompt and if found change the i/o function code 


BBC beet PMT+ROP,=~ 


; branch if not read prompt 
MOVL #103. READPROMPT, - 
Q10$"FUNC-4(SP) : substitute function code 
3; or in the terminal read options bits 


the following assumes check that the rms definitions for 
3; the terminal read sub functions match those o 
: the starlet system 
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vO4=000 RMSSEORD = "ROUTINE 10 PERFORA SEQUENTIAL 'S-SEP-1984 16:28:46 ERMS-SRCIRMTSEGXFReMAR;1 29° (43), 
14 
15; 
16 ; issue read gio for terminal 
18 $ must build argument List to include timeout period 
43 3; and wromp. buffer address and size 
: | 
1 
§ TRMREAD 
4 : 
| ; Start building the qio parameter List 
14 AQ Bl 8 CMPW BOBSW_NUMB(F ),- 
16 AG 8 § y BOBSUSIZE (RO) ; buffer big enough? 
05 =18 0 BLEQU $ : lequ it is 
16 AS BO O23A 31 MOVW BOBSW_SIZE(R4),- 
14 AG 023D 3 BOBSW"NUMB(R4) lse yes buffer size 
3A 68 3¢ EO O23F 5$: BBS #RABST ETO+ROP, (RB), TRMREAD EXTEND 
0243 34 ; _— extended terminal operation 
7E 3 AB 9A 0243 32 MOVZBL RABS$B_PSZ(R8) ,-(SP) : = prompt buffer size 
088 9F 0247 6 PUSHAB BRaoee PBF (RBS ; prompt but fer addr 
05 12 024A 837 BNEQ P22, if specified 
04 AE D4 O024C 38 CLRL Q10$_P6-Q10$_P5(SP) ; insure 0 size 
09 11 O24F 839 exB = US | 
$e 
8 3] Hk ; probe prompt buffer for caller readability | 
BE to 
338 46 "TT FNORD alus P6-a108_ PS(SP),= 
5 51 Bea ERRPRF IRB$B_MODE(R9) 3; branch if not Seopeese 
7E 04 SA 849 20S: CLRL -(SP) ; p4 = terminator clas 
5C 850 ; = default (tc$m stenderdl 
7E 1F AS QA 5c =: 8851 MOVZBL RABS$B_TMO(R8) ,-(SP) 3; p3 = timeout period 
0088 30 ° 8 § BSBW SETP2_EFN ; finish build of arg List 
6 4 | 
° y) 
63 BS? | 
6 8 
65 9 
67 0 | 
69 1 
68 : 
68 864 | 
68 5 | 
3 he 
68 
68 8 ; 
68 9 
6B 0 


SAAAAA APA AAEM 


«Hs 


ASSUME <RABSV_RNE~24> EQ <IOSV_NOECHO - 6> 


—zD 


N11 
RMISEQKFR TRANSFER BLOCK FOR SEQUENTIAL FILE ORG  16-SEP=1984 00:56:37 VAX/VMS Macro v04-00 : 0 
V04= RASSEORD  CROUTINE TO PERFOMM SEKUERT GAL 'SaSepatone SoraSicG Tees Mee te oe Oe aa:1 | Page (20, 
ASSUME <RABSV_PTA-24> EQ <IOSV_PURGE - 6> 
ASSUME <RABSV-TMO-54> EQ <IOSV-TIMED = 6> 
ASSUME <RABSV_RNF=24> EQ <IO$V_NOFILTR = 6> 
ASSUME <RABSV“CVT-94> EQ <IOSV-CVTLOW - 6> 


30$: hy #RABSV_RNE+ROP #6, (R 


RO; get the option bits 
RO 
BRW pod 


8) 
#6,96,G10$_FUNC=4(SP); and set them into the i/o func 
10 3 common finish 


wwn 
-on 


3 
; Extended terminal operation Q10 argument setup Sesgunes ROP ETO set 
e 


III INO OOOO O- 
woowowovuono CoOWoOwwwawawmw 
‘G2 Cd Cod CD OD Od CD Gd Cd Cd OD Od C9 Cd GD CD 0D 0D CD CD OD CD C9 CD CD CD CD CD0D 


DOOOOO 000 OBWWODOWWOOO NNN 
DOONAN E WN @ OO ONOA UNE WH O OONOUE win 


FE 
QR 
3 plus an XABTRM to specify the item List for t « 
0 M8 TRM_XAB_ARGS: ; Dispatching info for RM$XAB_SCAN. 
0279 ; XAB code XAB Length CASE index 
00°24 1F 0279 BYTE XABSC_TRM, XABSC_TRMLEN, XBCS$C_GETPUTTRM 
00 8 4s -—BYTE 0O ; End of table flag. 
027D TRMREAD_EXTEND: 
027D 
027D 3+ 
0270 ; Scan for XABTRM, returning address in R5. If none, return an error 
8 43 3; (Cif ROP ETO is set, an XABTRM must be present). 
027D F 
5C FO AF Q9E Q27D 900 MOVAB TRM_XAB_ARGS, AP ; Set XAB scan arguments. 
ee 0281 901 PUSHR #*M2R1,R2,R3,R4,R5> : Save registers. ; 
FD7A" 30 0283 90 BSBW RMSXAB_SCAN ; Scan for XABTRM; return address in R5. 
2A 50 €9 ogee 90 BLBC RO, 30 : If error, then return. 
07 54 00° EO 0289 904 108:  ®8BS S*#XBCSC_GETPUTTRM, R4, 20$ 
0280 905 : If XABTRM found then continue 
028d 90 RMSERR XNF ; else set error to XAB not found and 
1F 38611 0292) = =«690 BRB 30$ 3 return. 
0294 908 
0294 909 g* : 
0 3 ai ; Push Q10 arguments for extended terminal read. 
9% 91 ‘ 
50 55 »00 0994 313 208: MOVL R5, RO 3; Save address of XABTRM. 
5 A 8 97 914 POPR #*M<R1,R2,R3,R4,R5> ; Restore registers. 
7E OCA C 0299 915 MOVZWL XABSW_ITMLST_LEN(RO), -(S5P) 
029D 218 3 = item List length in bytes. 
08 BO OF 9D «(91 PUSHAB @XABSL_ITMLST(RO) ; PS = item list address. 
3 04 “ 918 CLRL - 3 = must be zero. 
7E OA A 9A A 919 MOVZBL IRBSB_MODE(R9), -(SP) 3 P3 = mode to probe item list. 
1 A 920 BSBB WEFN ; Finish build of Q10 args (P2 -> efn). 
08 AE 00008000 BF C AB 921 BISL2 #IOSMTEXTEND, Q10$_FUNC-4(SP) 
' 8 9 § ; Set extended 1/0 bit in function code. 
FECE 31 . 2 i BR poalo 3; Continue at common Q10 code. 
B 925 :¢ ; 
: 4 § ; Error exit from TRMREAD_EXTEND. 


<= 


RMISEQKFR 
04600 
3€ 
14 AG 
50. -8E 
14 AG 


B4 
05 


30S: POPR 
CLRW 
RSB 


RRP6F : 

MOV 
CLR 
RMS 
RSB 


woowowowoowooooooonono om 


PEW 


Mm OVOONOUS Wr Ow0ew 


#*M<R1,R2,R3,R4,R5> 
BDBSW_NUMB(R4) 


prompt buffer not readable 


(SP)+,RO 
BDBSW.NUMB(R4) 
PBF 


12 
FOR, Igcsepmt9Re 00:5 


’ 


:37 \VAX/VMS Macro v04-00 
:46 CRMS.SRCIRMISEQXFR.MAR; 1 


Restore registers. 
no data in this case 


Return with error from XAB scan. 


clean up stack 
no data in this case 


ax 
C 12 
be 3 TRANSFER BLOCK FOR SEQUENTIAL FILE ORG ym it oR 0:5 +H AX/VMS Mac v04-00 Page ¢¢ 
v04- RMSSEQRD = ROUTINE TO PERFORM SEQUENTIAL 5-SEP=1984 16:23: RMS .SRCJRM 1SEQ XFR.MAR; 1 (14) 
C 944 
bt SEE | routine to } itd. ai tack 
3 rou ~ o bu '. args on stac 
C 323 3 oS s v bn, p4 =p » : 
02c 948 ; input: b ost Monin) = vbn 
C 949 ; note: .fl destroyed 
C 950 ; 
C 951 
C 826 SETP6_P3: 
50 B8EDO O2C 95 POPL RO ; get return pc 
7E 7C «(02CB (954 CLRO = = (SP) ; BS 5 = 0 
00 DD 8 CA 955 PUSHL # : = 
1C AS OOD cc 228 PUSHL BDBSL_VBN(R4) 3 B3 = vbn 
60 17 O2CF 95 JMP (RO) 3 return 
0201 958 
psd) 959 ; 
02D1 960 ; routine to build qio args on stack for a read ahead or write behind qio 
0201 961 ; set p2 thru efn 
0201 206 ; 
0201 96 
0201 964 ASSUME QIO$_ASTPRM EQ <QI10$_P 
02D1 965 ASSUME QIO$_ASTADR EQ <Q10$— ASTPRN - 4> 
02D1 966 ASSUME QIO$_IOSB EQ <GIO$_ASTADR - 4> 
02D1 967 
peo) 968 SETP2_EFN_RAH: 
50 BEDO 02D1 969 POPL RO 3 get return pc 
7E 14 A4 3C 0204 970 MOVZWL BDBSW_NUMB(R4) ,-(SP) 3; pe = xfer size 
18 AS «DD «(02D8 = o971 PUSHL BDBS$L_ADDR(R4) 3; pl = buffer ode from bdb 
54 DD O02DB 44) PUSHL R4 3; astprm = bdb addr 
OOOO'CF ODF O2DD 97 PUSHAL W*RMSRAHWBHAST ; set ast service address 
48 AG DF 02E1 974 PUSHAL BDBS$L_IOSB(R4) ; use iosb in bdb 
O2E4 975 CSB #BDB$T_AST_DCL,- 
02E4 976 BDB$B_FLGSTR4) ; clear i/o done flag 
17 11 O2E9 977 BRB SETFUNC 3 go join common code 
Bsee 978 
2B 979 ; 
O2EB 980 ; routine to build qio args on stack 
O2EB 981 ; sets p2 thru efn 
2—B ons 3 
2eB «O98 
see 984 SETP2_EFN: 
50 8EDO O2EB 985 POPL RO ; get return Le. 
7E 14 AG 3C O2E 986 MOVZWL BDBSW_NUMB(R4) ,-(SP) ; pe = xfer 
18 AS OOD 8 : iH PUSHL BDBS$L_ADDR(R4) 3 pl = bulter. addr from bdb 
O2F5 444 ASSUME QI10$_ rts EQ <Q10$_P1 - 4> 
O2F5 990 ASSUME QIOS"ASTADR EQ <QI10$— ASTPRM - 4 
O2F5 991 ASSUME QI0$"10S an Q <QIO$_ASTADR - 4> 
bsee 336 ASSUME QIO$"FUNC EQ <QI0$"I0SB - 4> 
03t8 994 SETAST_EFN: ; entry point from _fedeogutur | 
59 «DD «(O2FS «=: 995 PUSHL R9 ; astprm = irab add 
0000'CF DF O2F7 238 PUSHAL W*RMSSTALLAST : ast addr 
OC AD «OOF «C(O 4 44 PUSHAL IRB$L_I0S(R9) ; iosb addr 
18 £0 OOF 999 BBS #DEVSV_FOR,- | 
6A 0300 1000 IFBSL YPRIN’D EV(R10),- 


| 
D 12 
en Searee TRANSFER BLOCK FOR SEQUENTIAL FILE ORG ht i 1384 0:5 +H AX/VMS Macro V04-00 Page $3 | 
v04- RMSSEQRD = ROUTINE TO PERFORM SEQUENTIAL 5=-SEP-1984 16:25: RMS .SRCJRM1ISEQXFR.MAR;1 (14) | 
2D on 8} READ_LOG ; branch if foreign dev | 
§ 1 ¢ SETFUNC: 
31. —SsoD ¢ ! 3? PUSHL #10$_READVBLK : i/o function code 
o4 05 ASSUME QIO$_CHAN EQ <QI0$_FUNC - 4> 
7E 20 AA 3C Oe } 07 SETCHN: MOVZWL IFBSW_CHNL(R10),-(SP) ; i/o channel 
a8 1009 ASSUME Q10$_EFN EG <010$ CHAN = 4> 
8 0 1919 ASSUME IFBSB_EFN EQ IRBSB_EFN 
8 1011 SETEFN: 
0 1916 ASSUME titatittie: EQ 9 
8 08 101 ASSUME IFBS$C_BID&1 EQ 
b308 1313 ASSUME IRB$B_BID EQ IFB$B_BID | 
08 08 AY €8 0308 1016 BLBS IRB$B_BID(R9) ,2$ ; branch if ifab | 
23. €0 O30C 1017 BBS #IRB$V_ASYNC,=- 
1B 69 Ba0F 1018 (R9) ,ASYNCEFN ; branch if async operation 
2A €0 0310 1019 BBS #IRBSV RAHWBH ~ 
17 69 0312 1020 (R9) ,ASYNCEFN ; branch if rah/wobh call 
7E OB AD 9A 0314 1021 28: MOVZBL IRB$B_EFN(R9) ,-(SP) : use allocated efn 
OF 12 0318 10 ¢ BNEQ 10$ ; branch if one allocated | 
6—€ 1D 90 OQ31A 10 MOVB #29, (SP) ; always use efn 29 
02 £2 031D 1024 BBSS #PI0$V_SYNC1,- 
00 00000000' 9F O31F 1025 a#PlO$GW_STATUS,5$ 3; claim efn 
OB A9 90 0325 1026 5$: MOVB (SP), IRBSB_EFN(R9) 3 save efn 
17 0329 1027 10$: JMP (RO) 3; return 
0328 1028 
0328 9 ASYNCEFN: 
1F DD 032B 1030 PUSHL #IMPSC_ASYQIOEFN ; use (throw away) async efn 
60 17 Q32D 1031 JMP (RO) 3 return 
032F 1936 
O32F 1033; 
O32F 1034 
O32F 1035 READ_LOG: 
21 OD O36. 1036 PUSHL #10$_READLBLK ; set read logical for foreign dev 
D1 =611 «0331 «1037 BRB SETCAN : rejoin main Line 
0333 1038 | 
0333 1039 ; 
0333 1040 
0333 1041 RMSSETEFN:: 
50 BEDO 9333 H+ 93 POPL RO 3 get return pc 
DO 611 0336 104 BRB SETEFN 


ece-et C C L L LLLLLL LLLLLLLAL A Ae 
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RMISEOXFR TRANSFER BL L FILE ORG 16-SEP=1984 00:56:37 YAX/VMS Macro vO4- 4 | RM" 
vO4=000 RMSSEQUT - a: aii SEOXFR.A woe a 


I A I i 
ORM SEQUENTIAL 5-SEP-1984 16:25:46 ([CRMS.SRCIRMISEQXFR.MAR; 1 | vOé 
-SBTTL RMSSEQWT = ROUTINE TO PERFORM SEQUENTIAL WRITES 


+ 

RMSSEQWT 

this routine performs write virtual block for the sequential 
file organization. one of several flavors is performed 
depending upon whether the device is a unit record 

device and whether write-behind multi-buffer is in progress. 
Calling sequence: 


bsbw rm$seqwtbd - write to a block device 
bsbw rm$seqwtur - write to a unit record device 


Input Parameters: 


SOON AULS WIN OO ONAUES WN 0 OONOUE WN OVOONAUW 


Se Se Be Se Se Oe Se OH Se Be Be Se Se Be Be Ge Fe Ge Ge Ge Fe Se Ge Ge Ge Ge Se Fe Ge Ge Se Se Ge Se Se Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Fe Ge Se Se Sete Ge Ge Ge 
+ 

Cc 

a 

Cc 


DOOCOOCCOOCOCCOCSOOCOCOOSOOOOSOOSOOOOOCOCOOOOOOOSOOSoOOoOOo 8oC 
CO. 09 CD C9 C9 CO SINISE NN NIAAA A AAAAA MMIII EE EE 


bdb$v_drt 
if not write behind: | Z ; 
irb$l_ios,irb$l_ios4 system specified i/o status block data 
v system error code if sys error 


WO OONOULS WN 


| 
| 
| 
| 
| 
rij impure area addr 
r10 ifab addr 
r9 irab addr 
r8 rab addr 
r4 bdb addr of buffer to write 
Implicit Inputs: | 
rab$v_wbh user wants write behind option 
irb$v-rahwbh write behind processing flag 
bdb$l"addr address of buffer | 
bdb$l_vbn vbn to write (block device) 
$w_numb # bytes to write 
bdb$b_pre_cctl carriage control byte (unit record device) 
bdb$b_post_cctl 
ifb$l_chnl i/o channel 
outputs: 
r0 status code 
ri-r3,ap destroyed 
Implicit Outputs: 
cleared 
| 


ra $s 
if write behind: 
bdb$v_iop set 


status codes: 


ooowono 


standard rms, in particular, suc, eof, and sys. 
Side Effects: 


LA AIAN 
in 


if write behind, an ast will occur at rm$rahwbhast 
upon i/o completion 


G0 G0 G9. G0 C0 Cod CD CD OD G9 GD Cd CD CD Gd Cd OD Cd Od C9 CD OD GD Cd CD Cd CD CD. GD CD CD CD CD CD Cd CD CD Cd CD CD CD 0D Cd C9 CD C0 CD. CD CD 09 CD CD CD CD CDCDCD 
——-DOOCOCCOoSCoOooooo 


—OOONOUS 


ooooouono 


Oo 
wa 
Ww 


cm 
=D 

‘@o 
DO 


bdb$v_iop is set for duration of i/o 


Note that AP is used as RAHWBH/SYNC flag and as an EOF loop detector 
for magtape append error recovery. 


write to a unit record device - build arg List en stack 
note: not doing write behind to unit record device 


perform remote file access usin 
perform task=to-task communicat 


#IFBSV_DAP, (R10) ,5$ 
NTPUT 


BDBSB_PRE_CCTL+1 £Q BDBSB_POST_CCTL 
BDBSB_PRE_CCTL(R4) ,6(SP) 
B*WTCOMO, 

BDBS$W_NUMB(R4) ,-(SP) 


AX/VMS Macro V04-00 
RMS.SRCIRMISEQXFR.MAR; 1 


f not write behind, may have switched to running at ast level. 


network specific code. however, 
n using standard rms code. 


: is this remote access via dap? 


; p4 = carriage control 
; ret addr after setast_efn 
: push transfer size 


; address of buffer 


BDBSL~ CURBUF ADR(R4) 
STE ; and set up rest 


t write to a block device - build arg List on stack 


ODNVIN "DW ODWWWW OFM OOOO VNUPoMmM mm mrnrn Coco Coco ne CoCo CoCo CO CN CO CDCDCDOD 


; branch if wbh not enabled 


; or user does not bu 
; setup gio call arg 


set write behind flag 


join common code 


AA. AAAI AAAI AAAI AAAI AAAI NAIA AIA AIA AIAN NAIA NA NAAN AA AAA AAAI 


SN NINA AA AOA AO TUT TTT UT £ BS BB BE EWN AAAI AAAI AAA AAA 


p6=p5=p4=0, p3 


; build remaining argument List on stack 


CODD CODOGOOOCCSCOCOCOCOCOSCOCOCOCOOSCOCOOCOOCSOOCOCOCOC OOOO O OOOO OOOOOOOOOOOOOCOO 
ee ee ee a a 
ee ee ee ee ee ee ee ee ee ee ee ee ee ed a ad 


PUP BB BB EES EWI RIPIPININININININ 
ONAN WR OOO NOUS WR OOO NOU EWN 0 ODNAUES WN OU ONOUES WN OOM 


SNE SSI AO 


WALANG 


i i | 


ae ED 


y in 
lock on stack 
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RMISEQKFR TRANSFER BLOCK FOR SEQUENTIAL FILE ORG uo det B49 0:56:37 VAX/VMS Macro v04-00 Page $9 RM 
v04 RMSSEQWT = ROUTINE TO PERFORM SEQUENTIAL 5=SEP-1984 16:25:46 CRMS.SRCIRMISEQXFR.MAR; 1 (15) vO 
FF71 30 77 1159 WICOMM: BSBW SETP2_EFN 3 build p2 thru efn on stack 
5C 94 tA 1399 WTCOMO: CLRL AP ; clear write behind flag 
7c 1188 ASSUME IO$_WRITEVBLK EQ I0$_READVBLK-1 
4s 1182 ASSUME IOS_WRITELBLK EQ 10$_READLBLK-1 
08 aS 07 7C 1165 WTCOM1: DECL Q10$_FUNC-4(SP) ; change to write 
0 £0 7F 1198 BBS #DEVSV_TRM,=- 
40 6A } 116 IFBSL_PRIM_DEV(R10),30$ ; branch if terminal 
14 +€0 1168 BBS #DEVST_MBX,- 
45 6A 8 1199 IFBSL_PRIM_DEV(R10),40$ ; branch if mailbox 
6 HY 117) ASSUME QIO$_NARGS EQ 12 
87 1106 
87 1173 10$: 
OA AG O02 BA 87 1174 BICB2 #BDBSM_DRT,BDBSB_FLGS(R4) ; note not dirty anymore 
OA AG 04 oe 8 88 1175 BISB2 #BDBSM_IOP,BDB$B_FLGS(R4) ; note i/o in progress 
QOAQ CA 9 $05 1176 TSTB 1FB$B_JNLFLG(R10) ; are we journaling? 
ba ee a 117 BEQL 15$ 3; nope, no need to force jnl records | 
7E 454 7D O30 1178 MOVQ R4, =(SP) ; save R4 and RS from being clobbered | 
54 04 0398 1179 CLRL R ; force all jnl entries for this process 
Q0000000'EF 16 O39A 1180 JSB RMSFRCJNL : do the force 
54 50 +4 BaAg 1181 BLBC RO, ERRWRT : if entries weren't be forced, get out 
54 BE 7D SAS 1188 MOVa  (SP)+, R4 ; restore R4 and R5 | 
00000000 ' 9F OC FB O3A6 1183 15$: CALLS #12,a#SYS$QI0 ; do the gio 
3¢ 50 «6 £9 «(O3AD «(1184 BLBC RO,ERRAION | 
OF SC EB Bae 1185 BLBS AP,20$ : branch if write behind call 
5¢ 3 0383 1186 PUSHL AP ; Keep for check on EOF loop | 
FC48* 30 0385 1187 BSBW RMSSTALL 3 await Soap ietton 
5C 8ED0 0388 1188 POPL A ; Restore EOF recovery flag. 
OA AG 04 8A 038B 1189 BICB2 #BDBSM_IOP,BDBSB_FLGS(R4S ; note i/o completion | 
35 50 €9 OQ3BF 1190 BLBC RO, ERRORT : branch on error 
05 03C2 1191 20$: RSB 
CO 68 SF El C 1138 0$: BBC #RABSV_CCO+ROP,(R8),10$ ; branch if cco not speced | 
0 E3 C7 119 BBCS #10$v_CANCTRLO,- 
BB 08 AE 03C9 1194 Q10$_FUNC-4(SP),10$ 3 cancel control o. this 
O3CC 1195 3; won't be set already. 
B7 68 =39 «86©€1 O3CC 1196 408: BBC #RABSV_TMO+ROP,(R8),10$ ; don't want now checked | 
1F AB 95 tr 1197 TSTB RABSB_TMO(R8) ; 0 timeout spec'd? 
ig 0303 1198 BNEQ 10$ 3; nope, do normal read 
06 €3 0305 1199 BBCS  #I0$V_NOW,- 
AD 08 AE Bap! 1200 Q10$_FUNC-4(SP),10$ 3 set now sub func and branch. 
O3DA 1201 ; won't be set already. 
a 1 ¢ 
DA 1 p++ 
3DA 1204 ; : 
Bap A : 05 ; perform network put/update function via the remote fal 
yh 1 $$ i-- 
3DA 1 38 
30h 1209 NIPUT: : f 
0769 33 £4 + : 4 BBSC #IRBSV_UPDATE,(R9),10$ ; branch if update operation 
DE 121g | 
DE 1215; and clear flag 
DE 1214; 
DE 1215 
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v04- RMSSE - TINE TO PERFORM SEQUENTIAL 5-SEP=-1984 16:25:46 (CRMS.SRCIRMISEQXFR.MAR; i (15) 
00000000'EF 1 JSB NTSPUT ; perform network put 
0 RSB ; exit with rms code in r0 
00000000'EF 1 10$: JSB NTSUPDATE : perform network update 
0 RSB 3 exit with rms code in r0 


: error on qio call 
ERRQIO1: 

OA AG gt BA R4) ; make sure iop is not set 
03 6A F £0 T ; branch if task to task net 


operation so abort error 
doesn't map to eo 


Sete Ge Ge 


FocS = 31 BRW ERRSYS 


error writing - set default error code and go map if pops *pia. unless 
we are yy and error is EOF. Then we want to back up before the tape 


a td hd dd td dd IO 

PIPDPININIDINMINIPPIPNPINYPNINPYPININININIPYNINPINININIPINYNPYPNIPYPIPYINIPIAMINIMPININININININININ OO 

PAPAL DPLXRLXPEDXPD Gress & Be BS LE WINN NI WII POPOPOPOPNPONINYIY SS SC 
Be Se Se tee 


MWNIIS BN BM BP NS MD NNIYNVIOD OH NNN EE SEES SQM OOOOOOTUVMLEM 
NAUSEA OOO NAUE WN OC OD NAUE WIN SO OD NOAU EWN 0 OONOAU EWN O OONO 


mark and try again. 
E1 ERRWRT: BBC #DEV$V_SQD,- ; Only backspace if the 
IFBSL_PRIM_DEV(R10) ,20$ ; device is a magtape 
B1 CMPW 0 #SS$_ENDOFFILE ; Was this an EOF? 
12 BNEQ 208 : Branch if not. 
D1 CMPL AP ,#2 ; Is this our first time here? 
13 BEQL 20$ ; Branch if not. 
08 BB PUSHR #*M<R4,R5,R6> ; Save myrt ie registers 
01 CE 04 MNEGL R6 ; Number of blocks to space 
FBEF* 30 04 BSBW RMSSPACE_MT : Back up before Last block 
650 €9 046 BLBC RO,10$ ; If it failed, give up now 
56 601 8° 04 MOVL #1,R6 ; Otherwise, now bump to end of 
FBE6" 30 04 BSBW = RMSSPACE_MT : the magtape file. 
0070 8F BA 04 108: POPR #*M<R4,R5,RO> ; Restore the working regs. 
0c 50 =—E9 be BLBC RO,20$ ; Check if space forward worked 
FEAI 30 4 BSBW seTrs fe ; Set up p3 - p6 of gio 
FEC4 & BSBW Ww WEFN ; and now set : the rest 
5C 02 0 4 MOVL #2,AP ; Signal we've hit EOF once. 
FF GF 1 Be BRW wTCom1 3; And try it again. 
be 20$: RMSERR WER,R1 
FBCcB’ 31 Bé BRW RMSMAPERR 
Od END 


pone #8 
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UMODE 
ASYNCEFN 
BOBSB_FLGS 
POST 
Pre C 
FOR 
ASYQIOEFN 
XTEND 
CANCTRLO 
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RMISEQXFR 
Symbol table 
$$.PSECT 
SSRMS 


$$T1 
BDBSB 
BOBSB 
DEV$V 
DEV$V 
DEVS$V 
DEVSV 
DEV$V 
DOQIO 
EOF 
$V 
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Symbol table -SEP-1984 16:25:46 CRMS.SRCIRMISEQXFR.MAR;1 (15) 
RABSV_ETO = 0000001C TRM_XAB_ARGS 7g R 1 
RABSV_PMT = 1E TSTSI g R 1 
RABSV_PTA = 1p WTCOM AR 1 
RABSV_RNE = 1 WTCOM 7¢ R 1 
RABSV_RNF = 18 WTCOMM 77 R 01 
RABSV_TMO = 8 1 XABSC_TRM = 4 ay 
RABSV_WBH = gf XABSC_TRMLEN 2 3 $3 
READ_COG OOOS2F R 1 XABSL_ITMLST = 00000008 

OOOOTA2 R 1 XABSW_ITMLST_LEN = 0000000C 

RMSBUG eeeeeene =X 1 XBCSC_GETPUTTRM eereeeee =X 8 
ithe To 8 eeeeeene =X 1 XIT 00000093 R 1 
RMSMAPERR Reekeeee x 1 
RMSQUIET SEQMBF 00000026 RG 1 
RMSRAHWBAAST eeeeeeee =X 1 
RMSROBUF WT 0000082 RG 1 
RMSSEQFLNKBDB 444 44 RG 1 
RMSSEQRAH 000000 RG 01 
RMSSEQRD 00000 G 01 
RMSSEQWTBD 000 RG 01 
RMSSEQWTUR 00000 3 RG 01 
RMSSETEFN 00000333 RG 01 
RMSSPACE_MT eeeeeeee =X 01 
RMSSTALL eeeeeene x 01 
RMSSTALLAST eeeeenee x Q1 
RMS$STALLRAHWBH 0000059 RG 01 
RMSWTBUF WT 0000374 RG 01 
RMSXAB_SCAN eeraereek X 01 
RMS$_EOF = 0001827A 
RMS$_PBF = 00018614 
RMS$_RER = 0001COF4 
RMS$_SYS = 0001C10C 
RMS$_TMO = 00018180 
RMS$_WBE = 0001C12C 
RMS$_WER = 0001C114 
RMSS_XNF = 00018704 
ROP = 000000 2 
SETAST_EFN 000002F5 R 01 
SETCHN 00000304 R 01 
SETEFN 0000 88 R 01 
SE TFUNC 444 02 R 4 
SETP2_EF OO002EB R 1 
SETP2-EFN_RAH 99000 DIR oi 
SETP6 00002C5 R 1 
SETVAL 4 43 i 01 
SETVAL1 R 01 
SS$_ABORT = 0 3 
SS$_ ENDOF FILE = 0 
SS$_LINKABORT = 3 020E4 
SS$_LINKDISCON = gf 
$S$- TIMEOUT = 900 C 

suCTESS OOOOOF6 R 
SYS$QI0 geteeane ¢ 

TPT$L_SEQRD tereenee =), 

ere. SEQWTBD generar 8§=6Xf 


TPTSL_-SEQWTUR teerenee x 
TRMREAD 900008 3R 
TRMREAD_ EXTEND 000027D R 
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tessa meeceaeaeeranw= + 


! Psect synopsis ! 


geewmeeeee cae wnwen $ 


PSECT No. 


PSECT name 


Attributes 


Allocation 


fesee ss eoeeoaecae mannan ane } 


! Performance indicators H 
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Phase Page faults CPU Time Elapsed Time 
Initialization 34 8:00:00.1) 00:00:00.87 
Command processing 128 0:00: 3-08 00:00:04.14 
Pass 1 484 00:00:18.91 00:00:47.45 
Ty as af HBS E 88:05 
ym table output :00:00. :00:00. 
Symbol tabl 2 00:00:00.20 00:00:00.36 
Psect synopsis output 00:00:00.04 00:00:00.12 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 887 00:00:27.28 00:01:06.45 


The working set Limit was 1800 pages. : 

106587 bytes (209 pages) of virtual memory were used to buffer the intermediate code. 

There were 100 pages of symbol table space allocated to hold 1903 non-local and 44 local symbols. 
1267 source Lines were read in Pass 1, produc ing 17 object records in Pass 2 

335 pages of virtual memory were used to define 52 macros. 


ae Re Me EOE DO mem Tew 


Macros defined 


Macro Library name 


_$255$DUA28: RMS .OBJ3RMS.MLB; 1 16 
“$255$DUA28: CSYS.OBJJLIB.MLB; 1 2 
$255$DUA28: CSYSLIBISTARLET.MLB;2 10 
TOTALS (all Libraries) 28 


2015 GETS were required to define 28 macros. 
There were no errors, warnings or information messages. 


- ABS . 444444 ( 8-3 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NO 
RMSRMS1 000004 ( 1077.) O01 ¢ 1.) PIC USR CON REL GBL NOSHR 
SABS$ 00000000 0.) O02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR 
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EXE 
EXE 
EXE 


MACRO/LIS=LIS$:RM1SEQXFR/OBJ=OBJ$:RMISEQXFR MSRC$:RM1SEQXFR/UPDATE=(ENH$:RM1SEQXFR) +EXECMLS/LIB+LIB$:RMS/LIB 


RD 


hliicaisemicnics ; 
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NORD NOWRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 


WRT NOVEC BYTE 


MENT CORPORATION ~ 
AND PROPRIETARY 
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